home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / misc / cedbar / reader.gc < prev    next >
Text File  |  1999-05-17  |  889b  |  42 lines
  1. G4C
  2.  
  3. ; A File Reader.
  4.  
  5. ; ======================================================================
  6. ;               Globals & system events
  7. ; ======================================================================
  8.  
  9. WinBig 10 -1 550 -30 "Loading..."
  10. WinType 11110001
  11.  
  12. xOnLoad filename
  13. guiopen reader.gc 
  14.  
  15. xOnReload filename
  16. guiopen reader.gc 
  17.  
  18. xOnOpen
  19. if $filename > ' '
  20.    guiopen reader.gc
  21.    guiscreen reader.gc front
  22.    lvuse reader.gc 1
  23.    LVChange $filename
  24.    SetWinTitle reader.gc '$filename                                '
  25. else
  26.    guiquit reader.gc
  27. endif
  28.  
  29. ;-------> Upon closing, we quit so as not to use-up memory
  30.  
  31. xOnClose
  32. guiquit reader.gc
  33.  
  34. ; ======================================================================
  35. ;               The listview
  36. ; ======================================================================
  37.  
  38. xListview 0 0 0 0 "" var "" 20 NUM
  39. GadID  1
  40. GadFont #mono 8 000
  41.  
  42.